home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00968_Script_utility scripts < prev    next >
Text File  |  1997-07-29  |  547b  |  18 lines
  1.  
  2. on precast preloadlist, prebool
  3.   cursor 4
  4.   unload
  5.   --  put "cast: "&getat(preloadlist,1)
  6.   set preprebool = the preloadeventabort
  7.   if prebool = TRUE or prebool = FALSE then set the preloadeventabort = prebool
  8.   --  put "mem  before:  "&the freebytes / 1000
  9.   repeat with x in preloadlist
  10.     preloadcast x
  11.   end repeat
  12.   repeat with x in preloadlist
  13.     --    put "cast "& string(x) &": "&the preload of cast x
  14.   end repeat
  15.   --  put "mem after: "&the freebytes / 1000
  16.   set the preloadeventabort = preprebool
  17.   cursor 0
  18. end